home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 10-02.BAS < prev    next >
BASIC Source File  |  1991-06-07  |  639b  |  36 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. REM initialize the video environment
  6.  
  7. NewMode = FGbestmode(320,200,1)
  8. IF NewMode < 0 OR NewMode = 12 THEN
  9.    PRINT "This program requires a 320 x 200 color graphics mode."
  10.    STOP
  11. END IF
  12. OldMode = FGgetmode
  13. FGsetmode NewMode
  14.  
  15. REM draw some type of background
  16.  
  17. FGsetcolor 15
  18. FGrect 0, 319, 0, 199
  19.  
  20. REM move the object across the screen
  21.  
  22. FOR X = -20 TO 315 STEP 5
  23.    FGsetcolor 10
  24.    FGclprect X, X+19, 95, 104
  25.    FGwaitfor 1
  26.    FGsetcolor 0
  27.    FGclprect X, X+19, 95, 104
  28. NEXT
  29.  
  30. REM restore the original video mode and return to DOS
  31.  
  32. FGsetmode OldMode
  33. FGreset
  34.  
  35. END
  36.